home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / 18-0 un-screw (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  518b  |  14 lines
  1. 100 rem save"0:18-0 un-screw",8
  2. 105 z$=chr$(0)
  3. 110 open 15,8,15: open 5,8,5,"#0"
  4. 115 print#15,"u1:"5;0;18;0: rem * read in track 18, sector 0
  5. 120 print#15,"m-r"chr$(0)chr$(3)chr$(3): rem * peek about in ram
  6. 125 for x=0 to 2: get#15,a$: print 300+x;asc(a$+z$): next x
  7. 130 input "** update ram (y/n) ";sr$: if sr$<>"y" then 160
  8. 135 print#15,"m-w"chr$(0)chr$(3)chr$(3)chr$(18)chr$(1)chr$(65)
  9. 140 print#15,"m-r"chr$(0)chr$(3)chr$(3)
  10. 145 for x=0 to 2: get#15,a$: print 300+x;asc(a$+z$): next x
  11. 150 input "** write back block (y/n) ";wb$: if wb$<>"y" then 160
  12. 155 print#15,"u2:"5;0;18;0: rem * write back to track 18, sector 0
  13. 160 close5: close15: end
  14.